clean_county<-function(gps_data_merged){
  gps_data_merged$judet.gps_new<-gps_data_merged$judet.gps
  
  gps_data_merged<-gps_data_merged %>% mutate(judet.gps_new=gsub("Â","A",judet.gps_new))
  gps_data_merged<-gps_data_merged %>% mutate(judet.gps_new=gsub("Ă","A",judet.gps_new))
  gps_data_merged<-gps_data_merged %>% mutate(judet.gps_new=gsub("Ş","S",judet.gps_new))
  gps_data_merged<-gps_data_merged %>% mutate(judet.gps_new=gsub("Ţ","T",judet.gps_new))
  
  gps_data_merged<-gps_data_merged %>% mutate(judet.gps_new=ifelse(judet.gps_new=='SATU MARE','SATU-MARE',judet.gps_new))
  
  gps_data_merged<-gps_data_merged %>% mutate(judet.gps_new=gsub("MUNICIPIUL ","",judet.gps_new))
  gps_data_merged$judet.gps<-gps_data_merged$judet.gps_new
  gps_data_merged<-gps_data_merged %>% select (-judet.gps_new)
  
  return(gps_data_merged)
  
}